put the script of btn "Help_backtomap" of cd "MidAtlantic" into sss
repeat with i = 11 to the number of cds
set the cursor to busy
go cd i
put i && the name of cd i
if not exists(btn "help_backtomap") then next repeat
set the script of btn "Help_backtomap" to sss
if not exists(cd snd "main") then
create cd snd
set the name of it to "main"
show it
end if
end repeat
end foo
on memtest
lock messages
repeat 6 times
answer objectsize(this cd) + objectsize(this bg)
go next cd
end repeat
end memtest
on putinNewData region, cities, offset
-- global gWCdata
global gWCnumcitytotal
global gWCerror
put the number of rows of cities into numcityinreg
--breakpoint
repeat with i=1 to numcityinreg
lock screen
put word 1 of line i of cities into cityname
put word 3 of line i of cities into j
add 1 to j
do "put word" && (3+offset) && "of line" && j && "of bg fld WCData into cd fld" && quote & cityname & quote && "of cd region"
do "put" && quote & "/" & quote && "after cd fld" && quote & cityname & quote && "of cd region"
do "put word" && (2+offset) && "of line" && j && "of bg fld WCData after cd fld" && quote & cityname & quote && "of cd region"
do "put cd bmp" && quote & word (4+offset) of line j of bg fld "WCData" & quote && "of card Icons into cd bmp" && quote & cityname & "_icon" & quote && "of cd region"
unlock screen
show cd grp cityname
end repeat
end putinNewData
-------------------------
-------------------------
on openStack
-- global gWCusingSTB
-- global gWCwithMovie
global gNAVvscroll
global gNAVhscroll
-- global gNAVEpcotPath
-- global gNAVmoviepath
global gWCpath, gcursorNormal
set cursor to gcursorNormal
--if gWCusingSTB is "true" then
set the fullscreen to true
set the vertical scroll of card window to gNAVvscroll
set the horizontal scroll of card window to gNAVhscroll
-- end if
lock screen
go to cd "National"
hide cd pal "System"
hide cd pal "Custom"
--if gWCwithMovie is "false" then
unlock screen
stopmovie
--send disableNavBtn to card "National"
--initializeWC
--send openCard_call to card "National"
--put empty into gWCpath
end openStack
-------------------------
on closeStack
-- global gWCwithMovie
--release cd mov "Intro" of cd "National"
lock screen
hide cd grp "Cities" of cd "National"
hide cd bmp "Wait" of cd "National"
hide cd fld "DayofWeek" of cd "National"
--show cd shape "Black_back" of cd "National"
--show cd bmp "Black_front" of cd "National"
unlock screen
--set the keyenabled of cd mov "Intro" of cd "National" to false
--realize cd pal "System" of cd "National"
--set the keyenabled of cd mov "Intro" of cd "National" to true
--show cd mov "Intro" of cd "National"
put (the number of bg timers of card "NorthEast") into numtimers
repeat with i=1 to numtimers
stop bg timer i of bg "Regions"
end repeat
put the number of cd timers of cd "National" into numtimers
repeat with i=1 to numtimers
stop cd timer i of cd "National"
end repeat
--put the number of bg alarms of bg "Regions" into numalarms
--repeat with i = 1 to numalarms
-- clear bg alarm i of bg "Regions"
--end repeat
--put the number of cd alarms of cd "National" into numalarms
--repeat with i = 1 to numalarms
-- clear cd alarm i of cd "National"
--end repeat
if exists(cd snd "main") then stop cd snd "main"
if exists(bg snd "main") then stop bg snd "main"
--play stop
end closeStack
on endalarms
put the number of bg timers of cd "NorthEast" into numtimers
repeat with i=1 to numtimers
stop bg timer i of bg "Regions"
end repeat
put the number of cd timers of cd "National" into numtimers
repeat with i=1 to numtimers
stop cd timer i of cd "National"
end repeat
--put the number of bg alarms of bg "Regions" into numalarms
--repeat with i = 1 to numalarms
-- clear bg alarm i of bg "Regions"
--end repeat
--put the number of cd alarms of cd "National" into numalarms
--repeat with i = 1 to numalarms
-- clear cd alarm i of cd "National"
--end repeat
end endalarms
-------------------------
on stopMovie
-- global gNAVEpcotPath
-- global gWCpath
-- global gNAVcdev
-- global gNAVmoviepath
-- global gWCusingSTB
if gWCusingSTB is "true" then
import (gNAVmoviepath & "black.bkg") into cd "Black"
end if
send disableNavBtn to card "National"
initializeWC
--send openCard_call to card "National"
end stopMovie
-------------------------
on initializeWC
setupScreen
setupVoices
setupVars
setupCities
--setupDays
--setupTrivia
end initializeWC
-------------------------
on setupVars
global gWCnumcols
global gWCnumReg
global gWCcurrReg
global gWCerror
global gWCdate
global gWCplayedRegVoice
global gWCupReg
global gWCrightReg
global gWCdownReg
global gWCleftReg
global gWCacceptMouseClicks
global gWCacceptClickDelay
global gWCdemoShown
global gWCfirstTimeIn
global gWCalarmIsSet
put false into gWCerror
put 9 into gWCnumReg
put 1 into gWCcurrReg
put 16 into gWCnumcols
put gWCdate into cd fld "DayOfWeek"
--select line 1 of cd fld "DayOfWeek"
--set the textcolor of cd fld "DayOfWeek" to 182
--select empty
put 1 into gWCupReg
put 2 into gWCrightReg
put 3 into gWCdownReg
put 4 into gWCleftReg
put "false" into gWCplayedRegVoice
put "false" into gWCacceptMouseClicks
put 5 into gWCacceptClickDelay
put "false" into gWCdemoShown
put "true" into gWCfirstTimeIn
put "false" into gWCalarmIsSet
end setupVars
-------------------------
on setupScreen
global gWCtoday
global gWCtomorrow
--hide cd mov "Intro"
-- set the keyenabled of cd mov "Intro" to false
-- realize cd pal "Custom"
-- set the keyenabled of cd mov "Intro" to true
lock screen
--hide cd shape "Black_back"
--hide cd bmp "Black_front"
show bg bmp "US"
show cd grp "National"
show cd bmp "Wait"
hide cd grp "Cities" of cd "National"
hide cd grp "National_hilite"
hide cd grp "National_hilite" of cd "National"
hide cd bmp "Trivia_hilite"
hide cd bmp "StartOver_hilite"
show cd bmp "Copyright"
show cd bmp "WCcopyright"
hide cd grp "Days_3"
--breakpoint
show cd bmp gWCtoday
hide cd bmp "Day1_hilite"
hide cd bmp "Day2_hilite"
hide cd bmp "Day3_hilite"
show cd bmp "Day1_hide"
hide cd bmp "Day2_hide"
hide cd bmp "Day3_hide"
hide cd btn "Day1"
show cd btn "Day2"
show cd btn "Day3"
hide cd fld "Keypress" of cd "National"
hide bg fld "Keypress" of bg "Regions"
hide bg grp "Day_bmps" of bg "Regions"
show bg bmp gWCtomorrow of bg "Regions"
unlock screen
end setupScreen
-------------------------
on setupVoices
-- global gNAVEpcotPath
global gWCpath
global gNAVcdev
global gWCtriviaVoice
global gWCvoicePath
global gWCmainVoice
global gWCmainMusic
global gWCregVoice
global gWCregMusic
global gWCselectVoice, gPathAudio
if the platform = "Windows" then put "\" into pSep
else put ":" into pSep
put "Audio"&pSep into gWCvoicePath
put "trivia.aif" into gWCtriviaVoice
put "Misc 21.1" into gWCselectVoice
if gNAVcdev is "REMOTE" then
put "RmtUSmix.aif" into gWCmainVoice
put "TchUSmsc.aif" into gWCmainMusic
put "RmtRgmix.aif" into gWCregVoice
put "TchRgmsc.aif" into gWCregMusic
start cd timer "alarmVoice" of cd "National" expire in 4000 ticks
--ring cd alarm "alarmVoice" of cd "National" at 4000
else
put "TchUSmix.aif" into gWCmainVoice
put "TchUSmsc.aif" into gWCmainMusic
put "TchRgmix.aif" into gWCregVoice
put "TchRgmsc.aif" into gWCregMusic
start cd timer "alarmVoice" of cd "National" expire in 4000 ticks
--ring cd alarm "alarmVoice" of cd "National" at 2160
end if
-- set the soundFile of cd snd "main" to gPathAudio&gWCmainVoice
-- do "set the soundFile of cd snd main to"&&gPathAudio&gWCmainVoice
set the soundFile of cd snd "main" to gPathAudio&gWCmainVoice
-- maybe use this time to populate the fields in other regions?
--end idle
-------------------------
on setupTrivia
global gWCmonth
lock screen
put empty into cd fld Trivia
put empty into cd fld Trivia2
if gWCmonth is "January" then
put "1/22/1943: Spearfish, South Dakota recorded the greatest two minute U.S. temperature rise when the temperature rose 49 degrees F, from -4 degrees F to 45 degrees F." into cd fld Trivia
put "1/28/1887: Snowflakes
larger than milkpans
, measuring 15
across by 8
thick, reportedly fell near Fort Keogh, Montana." into cd fld Trivia2
else if gWCmonth is "February" then
put "2/11/1935: One associates hot temperatures with Africa, but Africa
s all-time coldest temperature of -11 degrees F was set on this day in Ifrane, Morocco." into cd fld Trivia
put "2/13/1959: Mt. Shasta (Ski Bowl), California, set the North American record for a single snowstorm by measuring a storm total of 189
." into cd fld Trivia2
else if gWCmonth is "March" then
put "3/29/1848: An ice jam at the Niagara River between Fort Erie, Ontario and Buffalo, New York caused the Niagara Falls to be
silent
for 30 hours." into cd fld Trivia
put "3/01/1990: A major storm hit Europe. In Germany, the storm destroyed the amount of timber normally cut in one year." into cd fld Trivia2
else if gWCmonth is "April" then
put "4/6/1982: The opening season game between the Yankees and the Texas Rangers was postponed due to 12
of snow at Yankee Stadium in New York, NY." into cd fld Trivia
put "4/18/1973: Spring in Wyoming ! The 58
of snow which fell near Glenrock, Wyoming set the state's single storm snowfall record." into cd fld Trivia2
else if gWCmonth is "May" then
put "5/30/1951: Strange?! After a tornado passed near Scottsbluff, Nebraska, a bean was found embedded 1
deep in the uncracked shell of an egg." into cd fld Trivia
put "5/1/1980: A report from the Arabian Sea stated that ball lightning
shaped like an orange fireball
traveled horizontally over the sea." into cd fld Trivia2
else if gWCmonth is "June" then
put "6/26/1977: Roy C. Sullivan survived being hit by lightning for the 7th time! His previous hits were in 1942, 1969, 1970, 1972, 1973 and 1976." into cd fld Trivia
put "06/30/68: For the first time in June since 1892, not a single clear day was observed in Sault Sainte Marie, Michigan." into cd fld Trivia2
else if gWCmonth is "July" then
put "7/4/1776: According to Thomas Jefferson
s weather report, the first Independence Day was cloudy with a temperature of 76 degrees F at 2 pm." into cd fld Trivia
put "7/3/1892: In Liverpool, England, ball lightning fell into a lake, creating a column of water 60 feet high." into cd fld Trivia2
else if gWCmonth is "August" then
put "8/5/1924: One of the highest sea-surface temperatures was measured by the SS Frankenfels in the Persian Gulf. It measured 96 degrees F." into cd fld Trivia
put "8/20/1991: In South Dakota, a man drove for 10 minutes around 3:00 AM without headlights due to so much lightning!" into cd fld Trivia2
else if gWCmonth is "September" then
put "9/22/1989: Hurricane Hugo hit land near Charleston, South Carolina with winds of 140 mph. Hugo was the second costliest U.S. hurricane." into cd fld Trivia
put "9/13/1922: At El Azizia, Libya, the world's hottest temperature of 136 degrees F occurred . A severe ghibli (dust storm) was also in progress." into cd fld Trivia2
else if gWCmonth is "October" then
put "10/18/1911: The World Series game between the Philadelphia A
s and the N.Y. Giants was rain delayed for 6 days
the longest in Series history." into cd fld Trivia
put "10/27/1972: A Crestview, Florida couple were awakened by rain falling on them
a tornado had ripped the roof from their house !" into cd fld Trivia2
else if gWCmonth is "November" then
put "11/25/1950: In Columbus, Ohio, heavy snow fell during the title game between Michigan and Ohio State. Brooms were needed to find the yard markers !" into cd fld Trivia
put "11/8/1989: Strong winds behind a cold front (gusts to 50+ mph) drifted tumbleweeds to 14' high in parts of Mobridge, South Dakota." into cd fld Trivia2
else if gWCmonth is "December" then
put "12/9/1917: Vevay, Indiana reported 26
of snow. After a week, people could walk across the frozen Ohio River between Vevay and Kentucky." into cd fld Trivia
put "12/27/1978: A new highest temperature for the South Pole (Antarctica) of 7.5 degrees F was observed." into cd fld Trivia2
end if
select line 1 of cd fld "Trivia"
--set the textcolor of cd fld "Trivia" to 2
set the textcolor of cd fld "Trivia" to 121
set the textfont of cd fld "Trivia" to "EmigreFifTeen"
set the textstyle of cd fld "Trivia" to plain
set the textsize of cd fld "Trivia" to 24
set the textheight of cd fld "Trivia" to 24
select empty
select line 1 of cd fld "Trivia2"
set the textcolor of cd fld "Trivia2" to 121
set the textfont of cd fld "Trivia2" to EmigreFifTeen
set the textstyle of cd fld "Trivia2" to plain
set the textsize of cd fld "Trivia2" to 24
set the textheight of cd fld "Trivia2" to 24
select empty
unlock screen
end setupTrivia
-------------------------
on countbmps
put empty into numbmps
put the number of cd bmps in cd "National" into numbmps
add the number of bg bmps in bg "US" to numbmps
add the number of cd bmps in cd "NorthEast" to numbmps
add the number of cd bmps in cd "MidAtlantic" to numbmps
add the number of cd bmps in cd "SouthEast" to numbmps
add the number of cd bmps in cd "GreatLakes" to numbmps
add the number of cd bmps in cd "North" to numbmps
add the number of cd bmps in cd "Central" to numbmps
add the number of cd bmps in cd "South" to numbmps
add the number of cd bmps in cd "NorthWest" to numbmps
add the number of cd bmps in cd "West" to numbmps
put the number of bg bmps in bg "Regions" into regbmps
multiply regbmps by 9
add regbmps to numbmps
put numbmps into msg box
end countbmps
-------------------------
on stopDemo
repeat with i = 1 to the number of cd timers
clear cd timer i
end repeat
repeat with i = 1 to the number of bg timers
clear bg timer i
end repeat
stop cd snd "main"
-- play stop
end stopDemo
on showcdbmps
put the number of cd bmps into j
repeat with i = 1 to j
show cd bmp i
end repeat
end showcdbmps
on showbgbmps
put the number of bg bmps into j
repeat with i = 1 to j
show bg bmp i
end repeat
end showbgbmps
PFONT
APPLE CHANCERY
ARIALF0
ARIAL NARROW"t@
ARIAL ROUNDED MT BOLD
ATHENS
AVANT GARDE
B BAUERBODONI BOLD@
B COURIER BOLDJ
B FRUTIGER BOLD
B FUTURA BOLDBJ
B HELVETICA BOLDBBJ
B ORCGARAM BOLD
B TIMES BOLD
BAUERBODONI
BAUERBODONI BLACKF0
BAUERBODONI BLACKCOND
BAUERBODONI BLACKITALIC
BAUERBODONI BOLDCOND;
BAUHAUS 93
BI BAUERBODONI BOLDITALIC
BI COURIER BOLDOBLIQUE
BI FRUTIGER BOLDITALIC
BI HELVETICA BOLDOBLIQUE"t@
BI TIMES BOLDITALIC
BO FUTURA BOLDOBLIQUE9R
BODONI BD BT;
BODONI BDIT BT
BODONI BTF0
BODONI IT BT"t@
BOOK ANTIQUA!
BOOKMAN
BOOKMAN OLD STYLE
BOOKMAN OLD STYLE BOLD
BRAGGADOCIO
BRITANNIC BOLD
BRUSH SCRIPT6F0
BRUSH SCRIPT MT
C FUTURA CONDENSED@
C HELVETICA CONDENSEDJ!
C UNIVERS 57 CONDENSED!
CAIRO
CB FUTURA CONDENSEDBOLD
CB HELVETICA CONDENSED BOLD
CB UNIVERS 67 CONDENSEDBOLD
CBI HELVETICA CONDENSED BOLDOBL
CBO FUTURA CONDBOLDOBLIQUE
CBO UNIVERS 67 CONDBOLDOBL
CENTURY GOTHIC
CENTURY SCHOOLBOOK
CHICAGO
CI HELVETICA CONDENSED OBLIQUE
CITIZENBOLD
CITIZENLIGHT
CL FUTURA CONDENSEDLIGHT1J
CL HELVETICA CONDENSED LIGHT"t@
CL UNIVERS 47 CONDENSEDLIGHTJc{
CLB HELVETICA CONDENSED BLACKZs
CLBI HELVETICA CONDENSED BLACKO
CLI HELVETICA CONDENSED LIGHTOB
CLO FUTURA CONDLIGHTOBLIQUE
CLO UNIVERS 47 CONDLIGHTOBL
CO FUTURA CONDENSEDOBLIQUE{
CO UNIVERS 57 CONDOBLIQUEt@
COLONNA MT
COMMERCIALPI BT
COURIER
COURIER NEW
CXB FUTURA CONDEXTRABOLD
CXBO FUTURA CONDEXTRABOLDOBLIQU
DESDEMONA
EMIGREEIGHT
EMIGREFIFTEENt@
EMIGREFOURTEEN
EMIGRETEN
ESPY SANS
ESPY SANS BOLD
ESPY SERIF@
ESPY SERIF BOLD
FIXEDSYS
FOOTLIGHT MT LIGHT
FRANKFURTERMEDIUM
FUTURA
FUTURA BD BT6F0
FUTURA BDIT BT@
FUTURA BK BTk
FUTURA BKIT BT
FUTURA BOOK
FUTURA MD BT
FUTURA MDIT BT
GENEVA
GENEVA
GILLSANS
GILLSANS BOLDF0
GILLSANS BOLDITALIC
GILLSANS ITALIC
GOUDY TEXT MT
H FUTURA HEAVY
HELVETICA
HO FUTURA HEAVYOBLIQUE
HOEFLER TEXT;
HOEFLER TEXT ORNAMENTS
I BAUERBODONI ITALIC
I COURIER OBLIQUE
I FRUTIGER ITALIC
I HELVETICA OBLIQUE
I ORCGARAM LIGHTITALIC1
I TIMES ITALIC1
IMPACT
IMPRESS BT0
KINO MT
L FRUTIGER LIGHT
L FUTURA LIGHT
LI FRUTIGER LIGHTITALIC
LO FUTURA LIGHTOBLIQUE
LONDON
LOS ANGELES
MATURA MT SCRIPT CAPITALS
MISTRAL
MOBILE
MODULASERIF
MODULASERIFBLACK;
MODULASERIFBOLD
MONACO@
MONOTYPE CORSIVA"t@
MONOTYPE SORTS)
MS LINEDRAW
MS SERIF
MT EXTRA6F0
N HELVETICA NARROW0
NEW CENTURY SCHLBK0
NEW YORK
O FUTURA BOOKOBLIQUE"t@
O FUTURA OBLIQUE"t@
OCR-A
ORCGARAM
PALATINO6F0
PLAYBILL
PROFONT
QUICKTYPE
QUICKTYPE CONDENSED
QUICKTYPE MONO0
QUICKTYPE PI"t@
R 2MODFRUTIGER ROMANJc{
R FRUTIGER ROMAN1J
SAN FRANCISCO
SKIA6F0
SMALL FONTS
STENCIL
SYMBOL0
TEKTON PLUS REGULAR
TIMES{
TIMES NEW ROMAN
TORONTO
TRADEGOTHIC-BOLDCONDTWENTY
TRADEGOTHIC-BOLDCONDTWENTYOBLc{
VENICE
VIVALDI
WIDE LATIN
WINGDINGSc{
XB FUTURA EXTRABOLD
XBO FUTURA EXTRABOLDOBLIQUE
ZAPF CHANCERY
ZAPF DINGBATS
ZAPFHUMNST BD BT
ZAPFHUMNST BDIT BT
ZAPFHUMNST BT
ZAPFHUMNST IT BT;
ZAPFHUMNST ULT BT
ZAPFHUMNST ULTIT BTIDMO
0IDBK
.IDCD
/TAIL
1INFO
/TAIL
2INFO
USSCRP
on mouseHasBeenClicked
--clearIdleAlarm
repeat with i = 1 to the number of cd timers
stop cd timer i
end repeat
--repeat with i = 1 to the number of cd alarms
-- clear cd alarm i
--end repeat
--play stop
--stop cd snd "main"
if the visible of cd btn "Continue" is "true" then
send dismissPopup to cd btn "Continue"
end if
end mouseHasBeenClicked
-------------------------
on keyPressed theKey
global gWChilitedReg
global gNAVcdev
global gWCinitialReg
global gWCreg_or_btn
global gWCacceptMouseClicks
-- global gNAVEpcotPath
global gWCpath
global gWCvoicePath
global gWCmainMusic, gPathAudio
if gNAVcdev is "REMOTE" then
--clearIdleAlarm
if gWCacceptMouseClicks is not "false" then
if (theKey is "r") then
if gWCreg_or_btn is "region" then
put the rightregion of cd bmp gWChilitedReg into gotoregion
checkReg_cd gotoregion
else
put the rightbutton of cd btn gWChilitedReg into gotoregion
if gotoregion is not empty then
if the visible of cd btn gotoregion is false then
put the rightbutton of cd btn gotoregion into gotoregion
end if
end if
checkReg_btn gotoregion
end if
select char 1 of cd fld "Keypress"
else if (theKey is "l") then
if gWCreg_or_btn is "region" then
put the leftregion of cd bmp gWChilitedReg into gotoregion
checkReg_cd gotoregion
else
put the leftbutton of cd btn gWChilitedReg into gotoregion
if gotoregion is not empty then
if the visible of cd btn gotoregion is false then
put the leftbutton of cd btn gotoregion into gotoregion
end if
end if
checkReg_btn gotoregion
end if
select char 1 of cd fld "Keypress"
else if (theKey is "u") then
if gWCreg_or_btn is "region" then
put the upregion of cd bmp gWChilitedReg into gotoregion
if word 1 of gotoregion is "Button" then
put "button" into gWCreg_or_btn
do "hide cd bmp" && quote & gWChilitedReg & "_hilite" & quote
send mouseDown to cd btn (word 2 of gotoregion)
put (word 2 of gotoregion) into gWChilitedReg
else
checkReg_cd gotoregion
end if
else
if the upregion of cd btn gWChilitedReg is not empty then
put "region" into gWCreg_or_btn
send mouseLeave to cd btn gWChilitedReg
put the upregion of cd btn gWChilitedReg into gWChilitedReg
do "show cd bmp" && quote & gWChilitedReg & "_hilite" & quote
else
beep
end if
end if
select char 1 of cd fld "Keypress"
else if (theKey is "d") then
if gWCreg_or_btn is "region" then
put the downregion of cd bmp gWChilitedReg into gotoregion
if word 1 of gotoregion is "Button" then
put "button" into gWCreg_or_btn
do "hide cd bmp" && quote & gWChilitedReg & "_hilite" & quote